incen %>%
group_by(prog.type, hmt.group) %>%
summarise(total = sum(as.numeric(amount))) %>%
mutate(total = ifelse(is.na(total), 0, total)) %>%
filter(!is.na(prog.type)) %>%
ungroup() %>%
group_by(prog.type) %>%
mutate(pct = percent(total / sum(total))) %>%
select(-total) %>%
spread(key = prog.type, value = pct)